home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 6-Pak - Disc 4
/
Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO
/
3D-Graphics-Editors
/
lsystem3.exe
/
L System 3
/
_setup.1
/
TREE11.LS
< prev
next >
Wrap
Text File
|
1994-10-16
|
410b
|
29 lines
# --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
12
5
30
#
c(12)T
#
T=[F~(5)FSd]
S=~(5)FRR[Ba]d>(30)~(5)FRR[Ba]d>(30)!(.8)S
R=[Ba]d>(120)
#
a=~(10)$F[Cxd]~(10)$Fd!(.8)b
b=~(10)$F[Dyd]~(10)$Fd!(.8)a
d=[g(300)g(40)Lg(40)Lg(40)Lg(40)Lg(40)Lg(40)L]
#
B=&B
C=+C
D=-D
#
x=a
y=b
#
F='(1.25)F'(.8)
#
L=[~f(7)c(8){+(30)f(200)-(120)f(200)-(120)f(200)}]
f=z
z=_
@